CAADiameters_NeptuneSemidiameterA <-
function(Delta){
.Call("CAADiameters_NeptuneSemidiameterA", Delta)
}
